SET COLO TO w+/n
@ 09,15 say kode1
@ 09,17 say kode2
@ 09,19 say kode3
@ 10,15 say main
@ 10,54 say sub
@ 12,23 say short
@ 13,18 say descr
@ 14,23 say perf
@ 16,38 say helt
@ 16,56 say acctcode
DO SAYG WITH 19,15,PRIC,'99,999.99','9,999,999'
*@ 19,15 say pric pict "9,999,999"
@ 19,29 say meth
IF PRIC<>0
   @ 20,23 say cost*100/pric pict "99.99%"
ELSE
   @ 20,23 SAY 0 PICT "99.99%"
ENDIF
DO SAYG WITH 20,58,COST,'99,999.99','9,999,999'
*@ 20,58 SAY cost pict "9,999,999"
@ 21,24 SAY cSunpcc
@ 21,38 SAY cSunpcn
